home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / unarced / utilities / shells / sksh / scr_source / chext.s next >
Text File  |  1995-03-17  |  722b  |  36 lines
  1. #!c:sksh
  2.  
  3. #*************************************************************************
  4. # This function renames files to a new extention
  5. #*************************************************************************
  6.  
  7. local _fspec _oldbase _newsuffix
  8.  
  9. if [ $# -lt 2 -o "$1" = '-?' ]
  10. then
  11.    echo 'Usage:' $(basename $0) 'newext files...'
  12.    echo '       (renames files with new extention)'
  13.    return 1
  14. fi
  15.  
  16. _newsuffix="$1"
  17.  
  18. if [ -z $(car "$_newsuffix" '.') ]
  19. then
  20.    _newsuffix=$(cdr "$_newsuffix" '.')
  21. fi
  22.  
  23. shift
  24.  
  25. for _fspec in $*
  26. do
  27.    if [ ! -f "$_fspec" ]
  28.    then
  29.       echo -c $(basename $0) ": $_fspec not found, skipping."
  30.    else
  31.       _oldbase=$(extname -v "$_fspec")
  32.       mv "$_fspec" "$_oldbase.$_newsuffix"
  33.    fi
  34. done
  35.  
  36.